home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d20 / fddev202.arc / PASCAL.ARC / FOLDER.INC < prev    next >
Text File  |  1991-10-01  |  2KB  |  66 lines
  1. (*
  2. **  Folder.Inc (FrontDoor)
  3. **
  4. **  Copyright 1991 Joaquim H. Homrighausen. All rights reserved.
  5. **
  6. **  FOLDER.FD definitions for FrontDoor 2.00+
  7. **
  8. **  Last revision:  91-10-02
  9. **
  10. **  -------------------------------------------------------------------------
  11. **  This information is not necessarily final and is subject to change at any
  12. **  given time without further notice
  13. **  -------------------------------------------------------------------------
  14. *)
  15.  
  16. (*
  17. **  Constant long bit values
  18. *)
  19. CONST
  20.   RESTRICT  = $00000001;
  21.   ECHO_INFO = $00000002;
  22.   EXPORT_OK = $00000004;
  23.   USE_XLAT  = $00000008;
  24.   PRIVATE   = $00000010;
  25.   READONLY  = $00000020;
  26.   NETMAIL   = $08000000;                              (* Commercial version *)
  27.   QUICKBBS  = $10000000;                             (* Hudson-style folder *)
  28.   DELETED   = $20000000;                           (* Never written to disk *)
  29.   LOCAL     = $40000000;
  30.   ECHOMAIL  = $80000000;
  31.  
  32.  
  33. (*
  34. **  User access mask
  35. *)
  36.   USER_1    = $00000001;
  37.   USER_2    = $00000002;
  38.   USER_3    = $00000004;
  39.   USER_4    = $00000008;
  40.   USER_5    = $00000010;
  41.   USER_6    = $00000020;
  42.   USER_7    = $00000040;
  43.   USER_8    = $00000080;
  44.   USER_9    = $00000100;
  45.   USER_10   = $00000200;
  46.  
  47.  
  48. (*
  49. **  Folder structure
  50. **
  51. **  The "path" and "title" fields below are NUL terminated.
  52. *)
  53. TYPE
  54.   FolderRec = RECORD
  55.     Path    : Array[1..65] of char;  (* Path if "board==0", otherwise emtpy *)
  56.     Title   : Array[1..41] of char;            (* Title to appear on screen *)
  57.     Origin  : byte;                            (* Default origin line, 0-19 *)
  58.     Flags,                                           (* Behavior, see above *)
  59.     PwdCrc,                      (* CRC32 of password or -1L if unprotected *)
  60.     UserOK  : longint;                         (* Users with initial access *)
  61.     UseAKA  : byte;                               (* AKA to use, 0==primary *)
  62.     Board   : word;                     (* Hudson-message base board number *)
  63.   End;
  64.  
  65. (* end of file "Folder.Inc" *)
  66.